Loading the library
library(Seurat)Setting the working directory
setwd("C:/Users/savill/OneDrive/Documents/PhD Jesse/R-Objects")Loading the data
# load my data
Gastruloid_48h_merged_afterQC <- readRDS("./df48v3.rds")
DefaultAssay(Gastruloid_48h_merged_afterQC) <- "RNA"
Gastruloid_48h_merged_afterQC <- SetIdent(Gastruloid_48h_merged_afterQC, value = "predicted.id")Getting the metadata and taking a peak:
metadata <- Gastruloid_48h_merged_afterQC@meta.data
head(metadata)Get all the columns so we can delete the old morphology info:
colnames(metadata) [1] "orig.ident" "nCount_RNA" "nFeature_RNA" "Sample.barcode" "Morphotype" "percent.mt" "RNA_snn_res.0.4"
[8] "seurat_clusters" "S.Score" "G2M.Score" "Phase" "old.ident" "RNA_snn_res.0.2" "Area"
[15] "AR" "percent.ribo" "RNA_snn_res.0.3" "RNA_snn_res.0.1" "RNA_snn_res.0.25" "RNA_snn_res.0.35" "RNA_snn_res.0.5"
[22] "RNA_snn_res.0.6" "hippopath1" "hippopath2" "hippopath3" "hippopath4" "hippopath5" "hippopath6"
[29] "hippopath7" "hippopath8" "hippopath9" "hippopath10" "hippopath11" "hippopath12" "hippopath13"
[36] "hippopath14" "hippopath15" "hippopath16" "hippopath17" "hippopath18" "hippopath19" "hippo1"
[43] "hippo2" "hippo3" "hippo4" "hippo5" "hippo6" "hippo7" "hippo8"
[50] "hippo9" "hippo10" "hippo11" "hippo12" "hippo13" "hippo14" "hippo15"
[57] "hippo16" "hippo17" "hippo18" "hippo19" "Cluster1" "Cluster21" "Cluster22"
[64] "Cluster23" "Cluster24" "Cluster25" "Cluster26" "Cluster27" "Cluster28" "Cluster29"
[71] "Cluster210" "Cluster211" "Cluster212" "Cluster213" "Cluster214" "Cluster215" "Cluster216"
[78] "Cluster217" "Cluster218" "Cluster219" "Cluster2" "Cluster3" "Cluster4" "Cluster5"
[85] "Cluster6" "Cluster7" "Cluster8" "Cluster9" "Cluster10" "Cluster11" "Cluster12"
[92] "Cluster13" "Cluster14" "Cluster15" "Cluster16" "Cluster17" "Cluster18" "Cluster19" all_features = colnames(metadata)
old_morpho_features = c("Area","AR")
metadata_old_removed = metadata[!(all_features %in% old_morpho_features)]
#index_name = "row_names"
#metadata_old_removed[, index_name] <- rownames(metadata_old_removed)
metadata_old_removedNANow we can move on to loading the new features and adding them to the metadata:
my_data_48h = read.csv("Morphodata_All_Features_Sequenced_048h.csv")
dim(my_data_48h)[1] 72 537my_data_48hAdding the identifier so we can merge the dataframes:
# if this is how we add the barcode identifyer it is CRITICAL that the order is the same as in the spreadsheet
# This means A1-A12 INSTEAD of A10,A11,A12,A1,A2 (which is the default order in python and pandas)
barcoder_identifier = "bar"
my_data_48h[barcoder_identifier] <- paste("Bar", c(1:72), sep="")
my_data_48hHere I am basically excluding the columns we don’t want to add, assuming that we want to add all columns that are in the .csv file. Alternatively we could specify which columns (or which features) we want to add to the seurat object manually. No matter which way it is done we would have to add the sample barcode to be able to merge the data with the existing metadata.
all_columns = colnames(my_data_48h)
columns_we_dont_need = c('Sample','Multi_BC','Multi_BC_.','Morphotype',barcoder_identifier)
columns_we_need = all_columns[!(all_columns %in% columns_we_dont_need)]
for (feature_name in columns_we_need) {
metadata_old_removed[feature_name]<- my_data_48h[[feature_name]][match(metadata_old_removed$Sample.barcode, my_data_48h[[barcoder_identifier]])]
}
metadata_old_removed